Voyager Presents CD-ROM's That Matter/Voyager Presents CD-ROM's That Matter.iso/pc/demos/crit/crit.dir/00072.ls

Text File | 1994-11-01 | 553 b | 37 lines

on enterFrame
  cursor(200)
end

on waitQT chan
  if the movieRate of sprite chan = 1 then
    go(the frame)
  end if
end

on waitSound chan
  if soundBusy(chan) then
    go(the frame)
  end if
end

on myWait theTicks
  set myTicks to theTicks + the ticks
  repeat while myTicks >= the ticks
  end repeat
end

on keyDown
  global autoPlaying
  set autoPlaying to 0
  sound stop 1
  sound stop 2
  unLoadCast()
  play done
end

on delayQT theSprite, theTicks
  repeat while the movieTime of sprite theSprite < theTicks
    updateStage()
  end repeat
end